home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / DeskJet / DeskJet.rsrc / POST_263 < prev    next >
Encoding:
Text File  |  1991-12-13  |  1.2 KB  |  41 lines
  1. %!PS-TTS-1.0
  2. % Hewlett-Packard DeskJet setup
  3.  
  4. statusdict /devicedict get begin
  5.  
  6. /DeskJet {
  7.   false true true false setframetype
  8.   57600 90 settilesize
  9.   deviceresolutionx dup 300 lt {4 idiv} {5 idiv} ifelse 45 /circlespot load setscreen
  10.   {} settransfer
  11.  
  12.   userdict /letter {statusdict begin 2 setdevicepaper 576 768 setdevicepage end} put
  13.   userdict /legal {statusdict begin 3 setdevicepaper 576 984 setdevicepage end} put
  14.   userdict /a4 {statusdict begin 26 setdevicepaper 561 817 setdevicepage end} put
  15.   userdict /lettersmall {statusdict begin 2 setdevicepaper 554 732 setdevicepage end} put
  16.   userdict /a4small {statusdict begin 26 setdevicepaper 538 780 setdevicepage end} put
  17.  
  18.   /showproc {
  19.     statusdict begin
  20.     /jobstate (printing to DeskJet) def
  21.     #copies {
  22.       devicefile dup <1B45> writestring flushfile
  23.       devicefile opendevicepage renderproc devicefile closedevicepage
  24.       devicefile dup <0C> writestring flushfile
  25.     } repeat
  26.     /jobstate (busy) def
  27.     end
  28.   } def
  29.  
  30.   /setdevicepage {
  31.     devicescaley mul cvi /imageheight exch def
  32.     devicescalex mul cvi /imagewidth exch def
  33.     [devicescalex 0 0 devicescaley neg
  34.      imagewidth devicepaperwidth sub 2 div
  35.      imageheight devicepaperheight add 2 div] installdevice
  36.   } def
  37. } bind def
  38.  
  39. end
  40.  
  41.